home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / misc / edu / AmigaTrainer.lha / AmigaTrainer_v13c / Installer-Skript < prev    next >
Text File  |  1995-05-11  |  10KB  |  277 lines
  1. ;
  2. ; AmigaTrainer Installations- Skript $VER:AmigaTrainer 1.3c (07.03.1995)
  3. ;
  4.  
  5. (if (= "deutsch" @language)
  6. (
  7.     (set default_lang 1)
  8.  
  9.     (set #startmsg "\nAmigaTrainer Installations-Skript.\n\nDieses Skript installiert AmigaTrainer auf Ihrer Festplatte oder Diskette.\n\nAmigaTrainer © 1994-95 by Frank Weber\nAlle Rechte vorbehalten.")
  10.     (set #choosedir "Bitte wählen Sie das Verzeichnis, in dem die AmigaTrainer-Schublade erstellt werden soll")
  11.     (set #choosehelp (cat "\nIn dem Verzeichnis, das Sie hier auswählen, wird eine Schublade mit dem Namen AmigaTrainer erstellt, in die das Hauptprogramm und die dazugehörigen Dateien kopiert werden."))
  12.     (set #copybeispiel "\nMöchten Sie die Beispieldateien installieren ???")
  13.     (set #copybeispiel-help "\n Auf dieser Diskette sind eine oder mehr\n Beispieldateien, die den Einstieg in AmigaTrainer\n erleichtern und Anwendungsmöglichkeiten zeigen\n sollen.\n\n Klicken Sie auf 'Ja', wenn Sie diese\n Beispieldateien installieren möchten.")
  14.     (set #overwritemsg (cat"\nAmigaTrainer wurde bereits in dieses Verzeichnis installiert.\n\nAltes AmigaTrainer-Verzeichnis löschen ???"))
  15.     (set #overwritehelp (cat"\nIn dem Verzeichnis, das Sie ausgewählt haben, existiert bereits ein Verzeichnis mit dem Namen 'AmigaTrainer'.\n\nAntworten Sie 'Ja', wenn Sie das alte Verzeichnis komplett löschen möchten, bevor diese Version installiert wird."))
  16.     (set #askbeispieldrawer "Bitte wählen Sie das Verzeichnis, in das die 'Vokabeln'-Schublade kopiert werden soll")
  17.     (set #askbeispieldrawerhelp "\nSie müssen hier das Verzeichnis wählen, in dem eine Schublade mit dem Namen 'Vokabeln' ertellt wird, in die alle Beispieldateien kopiert werden.")
  18.     (set #chooselang "\nWelche Sprachen sollen installiert werden ???")
  19.     (set #chooselang-help "\nWenn Sie AmigaTrainer in verschiedenen Sprachen benutzen möchten, müssen Sie die Catalog-Dateien installieren. Wählen Sie aus, welche Cataloge Sie installieren wollen")
  20.     (set #copylangs "\nMöchten Sie die Sprachdateien (Cataloge) für Deutsch und Englisch installieren ???")
  21.     (set #copylangs-help "\nWenn Sie AmigaTrainer in verschiedenen Sprachen benutzen möchten, müssen Sie die Catalog-Dateien installieren.")
  22.     (set #keyfiledir "\nWohin soll das Keyfile kopiert werden ??\n")
  23.     (set #keyfiledir-help "\nUm AmigaTrainer als registrierter Anwender benutzen zu können, benötigen Sie das Keyfile. Damit können Sie auch neuere Demo-Versionen als Vollversionen benutzen.\nWählen Sie aus, wohin es kopiert werden soll.")
  24.     (set #sameasAT "gleiches Verzeichnis")
  25.     (set #sdir "S: - Verzeichnis")
  26.     (set #bdir "Vokabeln")
  27. ))
  28.  
  29. (if (= "english" @language)
  30. (
  31.     (set default_lang 2)
  32.     (set #startmsg "\nAmigaTrainer Installation-Script.\n\nThis script will install AmigaTrainer to your harddisk or floppydisk.\n\nAmigaTrainer © 1994-95 by Frank Weber\nAll rights reserved.")
  33.     (set #choosedir "Please choose the directory where you want the 'AmigaTrainer'-directory to be created in")
  34.     (set #choosehelp (cat "A new directory 'AmigaTrainer' will be created in the directory you select, where AmigaTrainer and all additional files will be copied into."))
  35.     (set #copybeispiel "\nDo you want the example files to be installed ???")
  36.     (set #copybeispiel-help "\n This package includes one or more example files that show you examples for using AmigaTrainer.\n\nSelect 'Yes' if you want them to be installed.")
  37.     (set #overwritemsg (cat"\nAmigaTrainer has already been installed into this directory.\n\nDelete old directory"))
  38.     (set #overwritehelp (cat"\nThere is already a directory called 'AmigaTrainer' in the directory chosen by you.\n\nSelect yes if you want the whole directory to be deleted before this version is installed."))
  39.     (set #overwritemsg (cat"\nAmigaTrainer has already been installed into this drawer.\n\nDelete old AmigaTrainer-drawer ???"))
  40.     (set #overwritehelp (cat"\nIn the drawer you have chosen there is already a directory called 'AmigaTrainer'.\n\nAnswer 'Yes' if you want the old AmigaTrainer-directory to be deleted."))
  41.     (set #askbeispieldrawer "Please choose a directory where you want the 'words'-drawer to be created in.")
  42.     (set #askbeispieldrawerhelp "\nYou have to choose the directory where a drawer called 'words' will be created in. All example files will be copied into this drawer.")
  43.     (set #chooselang "\nWhich language do you want to have installed ???")
  44.     (set #chooselang-help "\nIf you want to use AmigaTrainer in different languages, the catalog files must be installed. Please choose which catalogs you want to be installed.")
  45.     (set #copylangs "\nDo want to have the language files (catalogs) to be installed ???")
  46.     (set #copylangs-help "\nIf you want to use AmigaTrainer in different languages, the catalog files must be installed.")
  47.     (set #keyfiledir "\nWhere do you want the Keyfile to be installed ??\n")
  48.     (set #keyfiledir-help "\nTo use AmigaTrainer as a registered user, you need the keyfile. With this keyfile you will also be able to use newer demo-versions as regsitred versions.\nChoose where you want to have it installed.")
  49.     (set #sameasAT "same directory")
  50.     (set #sdir "S: - directory")
  51.     (set #bdir "words")
  52.  
  53. ))
  54.  
  55.  
  56. (set default-dir "SYS:")
  57. (message #startmsg)
  58. ; Hauptprogramm kopieren
  59. (set @default-dest "SYS:")
  60. (if (> @user-level 0)
  61.         (set @user-dest
  62.                 (askdir
  63.                         (prompt #choosedir)
  64.                         (help #choosehelp)
  65.                         (default @default-dest)
  66.                 )
  67.         )
  68. )
  69.  
  70. (if (= @user-dest 0) (set @user-dest @default-dest))
  71.  
  72. (set @atdrawername (tackon @user-dest "AmigaTrainer"))
  73.  
  74. (if (exists @atdrawername)
  75. (
  76.   (if (> @user-level 1)
  77.   (
  78.     (set overwrite (askbool
  79.                            (prompt #overwritemsg)
  80.                            (help #overwritehelp)
  81.                            (default 0)
  82.                    )
  83.     )
  84.     (if (= 1 overwrite)
  85.       (run (cat "c:delete QUIET ALL " @atdrawername))
  86.     )
  87.   ))
  88. ))
  89.  
  90. (makedir @atdrawername (infos))
  91.  
  92. (complete 10)
  93.  
  94. (copyfiles
  95.      (source "AmigaTrainer")
  96.      (dest @atdrawername)
  97.      (infos))
  98.  
  99. (complete 35)
  100.  
  101. (copyfiles
  102.      (source "Anleitung.guide")
  103.      (dest @atdrawername)
  104.      (infos))
  105.  
  106. (if (< (/ (getversion) 65536) 38)
  107.     (tooltype (dest (tackon @atdrawername "Anleitung.guide"))
  108.               (setdefaulttool "sys:utilities/AmigaGuide")
  109.     )
  110.  
  111.     (tooltype (dest (tackon @atdrawername "Anleitung.guide"))
  112.               (setdefaulttool "sys:utilities/Multiview")
  113.     )
  114.  
  115. )
  116.  
  117. (complete 45)
  118.  
  119. (copyfiles
  120.      (source "LiesMich_JETZT")
  121.      (dest @atdrawername)
  122.      (infos))
  123.  
  124. (copyfiles
  125.      (source "ReadMe_NOW")
  126.      (dest @atdrawername)
  127.      (infos))
  128.  
  129. (copyfiles
  130.      (source "Hallo_Schüler!!")
  131.      (dest @atdrawername)
  132.      (infos))
  133.  
  134. (complete 53)
  135.  
  136. (copyfiles
  137.      (source "RegiTool")
  138.      (dest @atdrawername)
  139.      (infos))
  140.  
  141. (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  142.           (settooltype "REGITOOL" (tackon @atdrawername "RegiTool"))
  143. )
  144.  
  145. (complete 65)
  146.  
  147.  
  148. (if (askbool (prompt #copybeispiel)
  149.              (help #copybeispiel-help)
  150.              (default 0)
  151.     )
  152.     (set installbeispiel 1)
  153.     (set installbeispiel 0)
  154. )
  155.  
  156. (set @beispieldrawer @atdrawername)
  157. (if (> @user-level 0)
  158.   (if (= installbeispiel 1)
  159.     (set @beispieldrawer (askdir    (prompt #askbeispieldrawer)
  160.                                     (help #askbeispieldrawerhelp)
  161.                                     (default @atdrawername)
  162.                          )
  163.     )
  164.   )
  165. )
  166.  
  167. (set @beispieldrawer (tackon @beispieldrawer #bdir))
  168.  
  169. (makedir @beispieldrawer)
  170.  
  171. (if (= 1 installbeispiel)
  172.  
  173.     (copyfiles
  174.          (source (pathonly "Vokabeln/"))
  175.          (dest @beispieldrawer)
  176.          (Pattern "#?.AT"))
  177. )                               
  178.  
  179. (complete 75)
  180.  
  181. (if (exists "AT_Key-File")
  182. (
  183.     (set copykey 2)
  184.     (if (> @user-level 1)
  185.         (set @keyfilepath (askdir (prompt #keyfiledir)
  186.                                   (help #keyfiledir-help)
  187.                                   (default @atdrawername)
  188.                           )
  189.         )
  190.         (set copykey (askbool  (prompt #keyfiledir)
  191.                                (help #keyfiledir-help)
  192.                                (choices #sameasAT #sdir)
  193.                                (default 1)
  194.                      )
  195.         )
  196.      )
  197.      (if (= copykey 1) (set @keyfilepath @atdrawername))
  198.      (if (= copykey 0) (set @keyfilepath "S:"))
  199.  
  200.      (copyfiles  (source "AT_Key-File")
  201.                  (dest @keyfilepath)
  202.      )
  203.  
  204.      (tooltype (dest (tackon @atdrawername "AmigaTrainer"))
  205.                (settooltype "KEYFILE" (tackon @keyfilepath "AT_Key-File"))
  206.      )
  207. ))
  208.  
  209. (complete 90)
  210.  
  211. (set locale 0)
  212. (if (> @user-level 1)
  213.   (set locale 2)
  214.   (set locale 1)
  215. )
  216. (if (< @user-level 1)
  217.     (set locale 0)
  218. )
  219.  
  220. (if (= locale 2)
  221.   (if (exists "SYS:Locale")
  222.   (
  223.     (if (exists "LOCALE:")
  224.     (
  225.       (set lang (askoptions (prompt #chooselang)
  226.                             (help #chooselang-help)
  227.                             (choices "Deutsch" "English")
  228.                             (default default_lang)
  229.                 )
  230.       )
  231.       (set n 0)
  232.       (while (set language (select n
  233.                                      "deutsch"
  234.                                      "english"
  235.                                      ""
  236.                             )
  237.               )
  238.       (
  239.       (if (IN lang n)
  240.       (
  241.           (makedir (tackon "Locale:Catalogs/" language))
  242.           (copyfiles
  243.              (source (tackon (tackon "Locale/Catalogs/" language) "AT.catalog"))
  244.              (dest (tackon "Locale:Catalogs/" language))
  245.           )
  246.       ))
  247.       (set n (+ n 1))
  248.       ))
  249.     ))
  250.   ))
  251. )
  252.  
  253. (if (= locale 0) (set copylangs 1))
  254.  
  255. (if (= locale 1)
  256.     (set copylangs (askbool   (prompt #copylangs)
  257.                               (help #copylangs-help)
  258.                               (default 0)
  259.                    )
  260.     )
  261. )
  262. (if (= 1 copylangs)
  263. (
  264.     (makedir  "Locale:Catalogs/deutsch")
  265.     (makedir  "Locale:Catalogs/english")
  266.     (copyfiles
  267.        (source "Locale/Catalogs/deutsch/AT.catalog")
  268.        (dest "Locale:Catalogs/deutsch")
  269.     )
  270.     (copyfiles
  271.        (source "Locale/Catalogs/english/AT.catalog")
  272.        (dest "Locale:Catalogs/english")
  273.     )
  274. ))
  275.  
  276. (complete 100)
  277.